home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0015 / flicker / aline.asm < prev    next >
Assembly Source File  |  1997-04-16  |  1KB  |  115 lines
  1.  
  2.  
  3.     public _aline
  4.  
  5.  
  6.     public _ainit
  7. _ainit:
  8.     move.l A2,-(A7)
  9.     dc.w $a000
  10.     move.l (A7)+,A2
  11.     move.l A0,D0
  12.     rts
  13.  
  14.     public _aput
  15. _aput:
  16.     dc.w $a001
  17.     rts
  18.  
  19.     public _aget
  20. _aget:
  21.     dc.w $a002
  22.     rts
  23.  
  24.  
  25.     public _aaline
  26. _aaline:
  27.     move.l A2,-(A7)
  28.     dc.w $a003
  29.     move.l (A7)+,A2
  30.     rts
  31.  
  32.  
  33.     public _ahline
  34. _ahline:
  35.     move.l A2,-(A7)
  36.     dc.w $a004
  37.     move.l (A7)+,A2
  38.     rts
  39.  
  40.  
  41.     public _acblock
  42. _acblock:
  43.     move.l A2,-(A7)
  44.     dc.w $a005
  45.     move.l (A7)+,A2
  46.     rts
  47.  
  48.  
  49.     public _apoly
  50. _apoly:
  51.     move.l A2,-(A7)
  52.     dc.w $a006
  53.     move.l (A7)+,A2
  54.     rts
  55.  
  56.  
  57.     public _ablit
  58. _ablit:
  59.     movem.l A2/A6,-(A7)
  60.     move.l 12(A7),A6
  61.     dc.w $a007
  62.     movem.l (A7)+,A2/A6
  63.     rts
  64.  
  65.  
  66.  
  67.  
  68.     public _atextblt
  69. _atextblt:
  70.     move.l A2,-(A7)
  71.     dc.w $a008
  72.     movem.l (A7)+,A2
  73.     rts
  74.  
  75.  
  76.     public _ashow_mouse
  77. _ashow_mouse:
  78.     move.l A2,-(A7)
  79.     dc.w $a009
  80.     movem.l (A7)+,A2
  81.     rts
  82.  
  83.  
  84.     public _ahide_mouse
  85. _ahide_mouse:
  86.     move.l A2,-(A7)
  87.     dc.w $a00a
  88.     movem.l (A7)+,A2
  89.     rts
  90.  
  91.     public _atmouse
  92. _atmouse:
  93.     move.l A2,-(A7)
  94.     dc.w $a00b
  95.     movem.l (A7)+,A2
  96.     rts
  97.  
  98.  
  99.     ; polyline(points, count)
  100.     public _polyline
  101. _polyline
  102.     movem.l    a2/a3/a4/d7,-(sp)
  103.     move.l    20(sp),a3
  104.     move.w    24(sp),d7
  105.     move.l    _aline,a4
  106.     adda    #38,a4    ;    point at line coordinate bits of aline
  107.     subq.w    #1,d7    ;    one less line than # of vertices ... 
  108.     bra plinez
  109. plineloop    move.l    (a3)+,(a4)
  110.     move.l    (a3),4(a4)
  111.     dc.w $a003
  112. plinez dbra    d7,plineloop
  113.     movem.l    (sp)+,a2/a3/a4/d7
  114.     rts
  115.